home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / tpxtable / pxtdemo.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  4KB  |  168 lines
  1. unit Pxtdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.  
  7.  
  8.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  9.   Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, DB,
  10.   DBTables, DBIProcs, DBITypes, DBIErrs, Pxtable;
  11.  
  12.  
  13. type
  14.   TParadoxDemoForm = class(TForm)
  15.     GroupBox1: TGroupBox;
  16.     DBNavigator1: TDBNavigator;
  17.     DBGrid1: TDBGrid;
  18.     GroupBox2: TGroupBox;
  19.     DBNavigator2: TDBNavigator;
  20.     DBGrid2: TDBGrid;
  21.     GroupBox3: TGroupBox;
  22.     DBNavigator3: TDBNavigator;
  23.     DBGrid3: TDBGrid;
  24.     GroupBox4: TGroupBox;
  25.     DBNavigator4: TDBNavigator;
  26.     DBGrid4: TDBGrid;
  27.     GroupBox5: TGroupBox;
  28.     DBNavigator5: TDBNavigator;
  29.     DBGrid5: TDBGrid;
  30.     GroupBox6: TGroupBox;
  31.     DBNavigator6: TDBNavigator;
  32.     DBGrid6: TDBGrid;
  33.     GroupBox7: TGroupBox;
  34.     DBNavigator7: TDBNavigator;
  35.     DBGrid7: TDBGrid;
  36.     MasterTable: TPXTable;
  37.     MasterSource: TDataSource;
  38.     DetailTable1: TPXTable;
  39.     DetailSource1: TDataSource;
  40.     DetailTable2: TPXTable;
  41.     DetailSource2: TDataSource;
  42.     SubDetail11Source: TDataSource;
  43.     SubDetail12Table: TPXTable;
  44.     SubDetail12Source: TDataSource;
  45.     SubDetail21Table: TPXTable;
  46.     SubDetail22Table: TPXTable;
  47.     SubDetail21Source: TDataSource;
  48.     SubDetail22Source: TDataSource;
  49.     Detail2CheckBox: TCheckBox;
  50.     Detail1CheckBox: TCheckBox;
  51.     Detail11CheckBox: TCheckBox;
  52.     Detail12CheckBox: TCheckBox;
  53.     Detail21CheckBox: TCheckBox;
  54.     Detail22CheckBox: TCheckBox;
  55.     SubDetail11Table: TPXTable;
  56.     Button1: TButton;
  57.     Image1: TImage;
  58.     procedure Detail1CheckBoxClick(Sender: TObject);
  59.     procedure Detail11CheckBoxClick(Sender: TObject);
  60.     procedure Detail12CheckBoxClick(Sender: TObject);
  61.     procedure Detail2CheckBoxClick(Sender: TObject);
  62.     procedure Detail21CheckBoxClick(Sender: TObject);
  63.     procedure Detail22CheckBoxClick(Sender: TObject);
  64.     Procedure RefreshDetailTables(DataSet: TDataset);
  65.     Procedure RefreshSubDetailTables1(DataSet: TDataset);
  66.     Procedure RefreshSubDetailTables2(DataSet: TDataset);
  67.     procedure Button1Click(Sender: TObject);
  68.   private
  69.     { Private declarations }
  70.   public
  71.     { Public declarations }
  72.   end;
  73.  
  74. var
  75.   ParadoxDemoForm: TParadoxDemoForm;
  76.  
  77. implementation
  78.  
  79. {$R *.DFM}
  80.  
  81. procedure TParadoxDemoForm.Detail1CheckBoxClick(Sender: TObject);
  82. begin
  83.   If Detail1CheckBox.State = cbChecked
  84.   Then
  85.     DetailTable1.MasterSource := Nil
  86.   Else
  87.     DetailTable1.MasterSource := MasterSource;
  88.   DetailTable1.Refresh;
  89. end;
  90.  
  91. procedure TParadoxDemoForm.Detail11CheckBoxClick(Sender: TObject);
  92. begin
  93.   If Detail11CheckBox.State = cbChecked
  94.   Then
  95.     SubDetail11Table.MasterSource := Nil
  96.   Else
  97.     SubDetail11Table.MasterSource := DetailSource1;
  98.   SubDetail11Table.Refresh;
  99. end;
  100.  
  101. procedure TParadoxDemoForm.Detail12CheckBoxClick(Sender: TObject);
  102. begin
  103.   If Detail12CheckBox.State = cbChecked
  104.   Then
  105.     SubDetail12Table.MasterSource := Nil
  106.   Else
  107.     SubDetail12Table.MasterSource := DetailSource1;
  108.   SubDetail12Table.Refresh;
  109. end;
  110.  
  111. procedure TParadoxDemoForm.Detail2CheckBoxClick(Sender: TObject);
  112. begin
  113.   If Detail2CheckBox.State = cbChecked
  114.   Then
  115.     DetailTable2.MasterSource := Nil
  116.   Else
  117.     DetailTable2.MasterSource := MasterSource;
  118.   DetailTable2.Refresh;
  119. end;
  120.  
  121. procedure TParadoxDemoForm.Detail21CheckBoxClick(Sender: TObject);
  122. begin
  123.   If Detail21CheckBox.State = cbChecked
  124.   Then
  125.     SubDetail21Table.MasterSource := Nil
  126.   Else
  127.     SubDetail21Table.MasterSource := DetailSource2;
  128.   SubDetail21Table.Refresh;
  129. end;
  130.  
  131. procedure TParadoxDemoForm.Detail22CheckBoxClick(Sender: TObject);
  132. begin
  133.   If Detail22CheckBox.State = cbChecked
  134.   Then
  135.     SubDetail22Table.MasterSource := Nil
  136.   Else
  137.     SubDetail22Table.MasterSource := DetailSource2;
  138.   SubDetail22Table.Refresh;
  139. end;
  140.  
  141. Procedure TParadoxDemoForm.RefreshDetailTables(DataSet: TDataset);
  142.   Begin
  143.     DetailTable1.Refresh;
  144.     DetailTable2.Refresh;
  145.     RefreshSubDetailTables1(DataSet);
  146.     RefreshSubDetailTables2(DataSet);
  147.   End;
  148.  
  149. Procedure TParadoxDemoForm.RefreshSubDetailTables1(DataSet: TDataset);
  150.   Begin
  151.     SubDetail11Table.Refresh;
  152.     SubDetail12Table.Refresh;
  153.   End;
  154.  
  155. Procedure TParadoxDemoForm.RefreshSubDetailTables2(DataSet: TDataset);
  156.   Begin
  157.     SubDetail21Table.Refresh;
  158.     SubDetail22Table.Refresh;
  159.   End;
  160.  
  161. procedure TParadoxDemoForm.Button1Click(Sender: TObject);
  162. begin
  163.   Close;
  164. end;
  165.  
  166. end.
  167.  
  168.